home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / MORE_SOURCE / AJC-WATERPOURING-EFFECT.AMOS / AJC-WATERPOURING-EFFECT.amosSourceCode
AMOS Source Code  |  1992-02-26  |  626b  |  39 lines
  1. '
  2. ' "WATERFALL EFFECT" 
  3. ' By Andrew Campbell 
  4. '
  5. '
  6.  
  7. Screen Open 0,320,256,32,Lowres
  8. Curs Off : Flash Off : Curs Off : Hide On : Cls 0
  9.  
  10. Palette $0,$11,$22,$33,$44,$55,$66,$77,$88,$99,$AA,$BB,$CC,$DD,$EE,$FF,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,0,0
  11. C=1 : Ink C : Shift Up 1,1,31,1
  12.  
  13. X=160 : Y=126 : Z=40 : R=3
  14. Degree 
  15. A=2
  16.  
  17. Repeat 
  18. Inc A
  19. For J=-59 To 320/2 Step A
  20.  Inc C : Gosub CS
  21.  For I=0 To 319
  22.   Y6=Tan((I/320.0)*Z*Pi#)*60
  23.   Inc C : Gosub CS
  24.   Circle I,J+Y6,R
  25.  Next I
  26.   If Mouse Key=1 : Goto ED : End If 
  27. Next J
  28. Until Mouse Key
  29.  
  30. ED:
  31. Shift Off 
  32. Fade 1 : Wait 15 : Cls 0
  33. Edit 
  34.  
  35. CS:
  36. Inc C
  37. If C>30 : C=1 : End If 
  38. Ink C
  39. Return